home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / QuickTime™ 1.5 interfaces / MoviesFormat.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  14.3 KB  |  483 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)
  3. ; ************************************************************
  4. ; Created: Monday, August 17, 1992 at 5:13 PM
  5. ;  MoviesFormat.p
  6. ;  Pascal Interface to the Macintosh Libraries
  7. ; 
  8. ; 
  9. ;  Copyright Apple Computer, Inc. 1991, 1992
  10. ;  All rights reserved
  11. ; 
  12. ;  03/10/93 bill pulled trackDirectoryArray def out of in-line in MovieDirectory
  13. ;                definition so that the translator could deal.
  14. ; 
  15. ; ************************************************************
  16.  
  17. ; $IFC UNDEFINED UsingIncludes
  18. ; $SETC UsingIncludes := 0
  19. ; $ENDC
  20.  
  21. ; $IFC NOT UsingIncludes
  22.  
  23. ; $ENDC
  24.  
  25. ; $IFC UNDEFINED UsingMoviesFormat
  26. ; $SETC UsingMoviesFormat := 1
  27.  
  28. ; $I+
  29. ; $SETC MoviesFormatIncludes := UsingIncludes
  30. ; $SETC UsingIncludes := 1
  31.  
  32. ; $IFC UNDEFINED UsingMovies
  33.  
  34. (require-interface 'MOVIES)     ; $I $$Shell(PInterfaces)Movies.p
  35. ; $ENDC
  36. ; $IFC UNDEFINED UsingImageCompression
  37.  
  38. (require-interface 'IMAGECOMPRESSION); $I $$Shell(PInterfaces)ImageCompression.p
  39. ; $ENDC
  40. ; $SETC UsingIncludes := MoviesFormatIncludes
  41.  
  42. (defconstant $kMovieVersion 0)  ;  version number of the format here described 
  43.  
  44. ; ****************************************
  45. ; *
  46. ; *   General Types -
  47. ; *        These types are used in more than one of the
  48. ; *        directory types.
  49. ; *
  50. ; ****************************************
  51.  
  52. ;  MoviesUserData is the type used for user data in movie and track directories 
  53.  
  54. (defrecord MoviesUserData 
  55.    (size :SIGNED-LONG)          ;  size of this user data 
  56.    (udType :SIGNED-LONG)        ;  type of user data  
  57.    (data (:ARRAY :UNSIGNED-BYTE 1));  the user data 
  58.    )
  59.  
  60. (defrecord UserDataAtom 
  61.    (size :SIGNED-LONG)
  62.    (atomType :SIGNED-LONG)
  63.    (userData (:ARRAY :MOVIESUSERDATA 1))
  64.    )
  65.  
  66. ;  MoviesDataDescription tells us where the data for the movie or track lives.
  67. ;    The data can follow the directory, be in the datafork of the same file as the directory resource,
  68. ;    be in the resource fork of the same file as the directory resource, be in another file in the 
  69. ;    data fork or resource fork, or require a specific bottleneck to fetch the data. 
  70.  
  71. ; ***************************************
  72. ; *
  73. ; *   MediaDirectory information -
  74. ; *        The MediaDirectory is tightly coupled to the data.
  75. ; *
  76. ; ***************************************
  77.  
  78. ;  The SampleDescriptionTable holds the SampleDescriptions needed to decompress chunks given the
  79. ;    SampleDescriptionID. There is a table per Media. 
  80.  
  81. ; 
  82. ; SampleDescription = RECORD
  83. ;     size        :    LONGINT;
  84. ;     dataFormat    :    LONGINT;
  85. ;     resvd1        :    LONGINT;
  86. ;     resvdA        :    INTEGER;
  87. ;     dataRefId    :    INTEGER;
  88. ; END;
  89. ; SampleDescriptionHandle = ^^SampleDescription;
  90. ; 
  91.  
  92. (defrecord SampleDescriptionAtom 
  93.    (size :SIGNED-LONG)
  94.    (atomType :SIGNED-LONG)      ;  = 'stsd' 
  95.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  96.    (numEntries :SIGNED-LONG)
  97.    (sampleDescTable (:ARRAY :SAMPLEDESCRIPTION 1))
  98.    )
  99.  
  100. ;  TimeToSampleNum maps physical sample time to physical sample number. 
  101.  
  102. (defrecord TimeToSampleNum 
  103.    (sampleCount :SIGNED-LONG)
  104.    (sampleDuration :SIGNED-LONG)
  105.    )
  106.  
  107. (defrecord TimeToSampleNumAtom 
  108.    (size :SIGNED-LONG)
  109.    (atomType :SIGNED-LONG)      ;  = 'stts' 
  110.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  111.    (numEntries :SIGNED-LONG)
  112.    (timeToSampleNumTable (:ARRAY :TIMETOSAMPLENUM 1))
  113.    )
  114.  
  115. ;  SyncSamples is a list of the physical samples which are self contained. 
  116.  
  117. (defrecord SyncSampleAtom 
  118.    (size :SIGNED-LONG)
  119.    (atomType :SIGNED-LONG)      ;  = 'stss' 
  120.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  121.    (numEntries :SIGNED-LONG)
  122.    (syncSampleTable (:ARRAY :SIGNED-LONG 1))
  123.    )
  124.  
  125. (defrecord SampleToChunk 
  126.    (firstChunk :SIGNED-LONG)
  127.    (samplesPerChunk :SIGNED-LONG)
  128.    (sampleDescriptionID :SIGNED-LONG)
  129.    )
  130.  
  131. (defrecord SampleToChunkAtom 
  132.    (size :SIGNED-LONG)
  133.    (atomType :SIGNED-LONG)      ;  = 'stsc' 
  134.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  135.    (numEntries :SIGNED-LONG)
  136.    (sampleToChunkTable (:ARRAY :SAMPLETOCHUNK 1))
  137.    )
  138.  
  139. (defrecord ChunkOffsetAtom 
  140.    (size :SIGNED-LONG)
  141.    (atomType :SIGNED-LONG)      ;  = 'stco' 
  142.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  143.    (numEntries :SIGNED-LONG)
  144.    (chunkOffsetTable (:ARRAY :SIGNED-LONG 1))
  145.    )
  146.  
  147. (defrecord SampleSizeAtom 
  148.    (size :SIGNED-LONG)
  149.    (atomType :SIGNED-LONG)      ;  = 'stsz' 
  150.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  151.    (sampleSize :SIGNED-LONG)
  152.    (numEntries :SIGNED-LONG)
  153.    (sampleSizeTable (:ARRAY :SIGNED-LONG 1))
  154.    )
  155.  
  156. (defrecord ShadowSync 
  157.    (fdSampleNum :SIGNED-LONG)
  158.    (syncSampleNum :SIGNED-LONG)
  159.    )
  160.  
  161. (defrecord ShadowSyncAtom 
  162.    (size :SIGNED-LONG)
  163.    (atomType :SIGNED-LONG)
  164.    (flags :SIGNED-LONG)
  165.    (numEntries :SIGNED-LONG)
  166.    (shadowSyncTable (:ARRAY :SHADOWSYNC 1))
  167.    )
  168.  
  169. (defrecord SampleTableAtom 
  170.    (size :SIGNED-LONG)
  171.    (atomType :SIGNED-LONG)      ;  = 'stbl' 
  172.    (sampleDescription :SAMPLEDESCRIPTIONATOM)
  173.    (timeToSampleNum :TIMETOSAMPLENUMATOM)
  174.    (sampleToChunk :SAMPLETOCHUNKATOM)
  175.    (syncSample :SYNCSAMPLEATOM)
  176.    (sampleSize :SAMPLESIZEATOM)
  177.    (chunkOffset :CHUNKOFFSETATOM)
  178.    (shadowSync :SHADOWSYNCATOM)
  179.    )
  180.  
  181. (defrecord PublicHandlerInfo 
  182.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  183.    (componentType :SIGNED-LONG)
  184.    (componentSubType :SIGNED-LONG)
  185.    (componentManufacturer :SIGNED-LONG)
  186.    (componentFlags :SIGNED-LONG)
  187.    (componentFlagsMask :SIGNED-LONG)
  188.    (componentName (:ARRAY :UNSIGNED-BYTE 1))
  189.    )
  190.  
  191. (defrecord HandlerAtom 
  192.    (size :SIGNED-LONG)
  193.    (atomType :SIGNED-LONG)      ;  = 'hdlr' 
  194.    (hInfo :PUBLICHANDLERINFO)
  195.    )
  196.  
  197. (def-mactype :DATAREFATOM (find-mactype :SIGNED-LONG))
  198.  
  199. (defrecord DataInfoAtom 
  200.    (size :SIGNED-LONG)
  201.    (atomType :SIGNED-LONG)      ;  = 'dinf' 
  202.    (dataRef :SIGNED-LONG)
  203.    )
  204.  
  205. (defrecord RgnAtom 
  206.    (size :SIGNED-LONG)
  207.    (atomType :SIGNED-LONG)
  208.    (rgnSize :SIGNED-INTEGER)    ;  this is the contents of a region 
  209.    (rgnBBox :RECT)
  210.    (data (:ARRAY :UNSIGNED-BYTE 1))
  211.    )
  212.  
  213. (defrecord MatteCompressedAtom 
  214.    (size :SIGNED-LONG)
  215.    (atomType :SIGNED-LONG)
  216.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  217.    (matteImageDescription :IMAGEDESCRIPTION)
  218.    (matteData (:ARRAY :UNSIGNED-BYTE 1))
  219.    )
  220.  
  221. (defrecord MatteAtom 
  222.    (size :SIGNED-LONG)
  223.    (atomType :SIGNED-LONG)
  224.    (aCompressedMatte :MATTECOMPRESSEDATOM)
  225.    )
  226.  
  227. (defrecord ClippingAtom 
  228.    (size :SIGNED-LONG)
  229.    (atomType :SIGNED-LONG)
  230.    (aRgnClip :RGNATOM)
  231.    )
  232.  
  233. ; ***********************
  234. ; * Media Info Example Structures 
  235. ; ***********************
  236.  
  237. (defrecord VideoMediaInfoHeader 
  238.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  239.    (graphicsMode :SIGNED-INTEGER);  for QD - transfer mode 
  240.    (opColorRed :SIGNED-INTEGER) ;  opcolor for transfer mode 
  241.    (opColorGreen :SIGNED-INTEGER)
  242.    (opColorBlue :SIGNED-INTEGER)
  243.    )
  244.  
  245. (defrecord VideoMediaInfoHeaderAtom 
  246.    (size :SIGNED-LONG)          ;  size of Media info 
  247.    (atomType :SIGNED-LONG)      ;  = 'vmhd' 
  248.    (vmiHeader :VIDEOMEDIAINFOHEADER)
  249.    )
  250.  
  251. (defrecord VideoMediaInfo 
  252.    (size :SIGNED-LONG)          ;  size of Media info 
  253.    (atomType :SIGNED-LONG)      ;  = 'minf' 
  254.    (header :VIDEOMEDIAINFOHEADERATOM)
  255.    (dataHandler :HANDLERATOM)
  256.    (dataInfo :DATAINFOATOM)
  257.    (sampleTable :SAMPLETABLEATOM)
  258.    )
  259.  
  260. (defrecord SoundMediaInfoHeader 
  261.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  262.    (balance :SIGNED-INTEGER)
  263.    (rsrvd :SIGNED-INTEGER)
  264.    )
  265.  
  266. (defrecord SoundMediaInfoHeaderAtom 
  267.    (size :SIGNED-LONG)          ;  size of Media info 
  268.    (atomType :SIGNED-LONG)      ;  = 'vmhd' 
  269.    (smiHeader :SOUNDMEDIAINFOHEADER)
  270.    )
  271.  
  272. (defrecord SoundMediaInfo 
  273.    (size :SIGNED-LONG)          ;  size of Media info 
  274.    (atomType :SIGNED-LONG)      ;  = 'minf' 
  275.    (header :SOUNDMEDIAINFOHEADERATOM)
  276.    (dataHandler :HANDLERATOM)
  277.    (dataReference :SIGNED-LONG)
  278.    (sampleTable :SAMPLETABLEATOM)
  279.    )
  280.  
  281. (defrecord MediaInfo 
  282.    (size :SIGNED-LONG)
  283.    (atomType :SIGNED-LONG)
  284. ;  whatever data the media handler needs goes here 
  285.    )
  286.  
  287. ; **********************
  288. ; * Media Directory Structures 
  289. ; **********************
  290.  
  291. (defrecord MediaHeader 
  292.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  293.    (creationTime :SIGNED-LONG)  ;  seconds since Jan 1904 when directory was created 
  294.    (modificationTime :SIGNED-LONG);  seconds since Jan 1904 when directory was appended 
  295.    (timeScale :SIGNED-LONG)     ;  start time for Media (Media time) 
  296.    (duration :SIGNED-LONG)      ;  length of Media (Media time) 
  297.    (language :SIGNED-INTEGER)
  298.    (quality :SIGNED-INTEGER)
  299.    )
  300.  
  301. (defrecord MediaHeaderAtom 
  302.    (size :SIGNED-LONG)
  303.    (atomType :SIGNED-LONG)
  304.    (header :MEDIAHEADER)
  305.    )
  306.  
  307. (defrecord MediaDirectory 
  308.    (size :SIGNED-LONG)
  309.    (atomType :SIGNED-LONG)      ;  = 'mdia' 
  310.    (mediaHeader :MEDIAHEADERATOM);  standard Media information 
  311.    (mHandler :HANDLERATOM)
  312.    (MediaInfo :MEDIAINFO)
  313.    )
  314.  
  315. ; **********************
  316. ; * Track Structures 
  317. ; **********************
  318.  
  319. (defconstant $TrackEnable 1)
  320. (defconstant $TrackInMovie 2)
  321. (defconstant $TrackInPreview 4)
  322. (defconstant $TrackInPoster 8)
  323.  
  324. (defrecord TrackHeader 
  325.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  326.    (creationTime :SIGNED-LONG)  ;  seconds since Jan 1904 when directory was created 
  327.    (modificationTime :SIGNED-LONG);  seconds since Jan 1904 when directory was appended 
  328.    (trackID :SIGNED-LONG)
  329.    (reserved1 :SIGNED-LONG)
  330.    (duration :SIGNED-LONG)      ;  length of track (track time) 
  331.    (reserved2 :SIGNED-LONG)
  332.    (reserved3 :SIGNED-LONG)
  333.    (layer :SIGNED-INTEGER)
  334.    (alternateGroup :SIGNED-INTEGER)
  335.    (volume :SIGNED-INTEGER)
  336.    (reserved4 :SIGNED-INTEGER)
  337.    (matrix :MATRIXRECORD)
  338.    (trackWidth :SIGNED-LONG)
  339.    (trackHeight :SIGNED-LONG)
  340.    )
  341.  
  342. (defrecord TrackHeaderAtom 
  343.    (size :SIGNED-LONG)          ;  size of track header 
  344.    (atomType :SIGNED-LONG)      ;  = 'tkhd' 
  345.    (header :TRACKHEADER)
  346.    )
  347.  
  348. (defrecord EditListType 
  349.    (trackDuration :SIGNED-LONG)
  350.    (mediaTime :SIGNED-LONG)
  351.    (mediaRate :SIGNED-LONG)
  352.    )
  353.  
  354. (defrecord EditListAtom 
  355.    (size :SIGNED-LONG)
  356.    (atomType :SIGNED-LONG)      ;  = elst 
  357.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  358.    (numEntries :SIGNED-LONG)
  359.    (editListTable (:ARRAY :EDITLISTTYPE 1))
  360.    )
  361.  
  362. (defrecord EditsAtom 
  363.    (size :SIGNED-LONG)
  364.    (atomType :SIGNED-LONG)      ;  = edts 
  365.    (editList :EDITLISTATOM)
  366.    )
  367.  
  368. (defrecord TrackDirectory 
  369.    (size :SIGNED-LONG)
  370.    (atomType :SIGNED-LONG)      ;  = 'trak' 
  371.    (trackHeader :TRACKHEADERATOM);  standard track information 
  372.    (trackClip :CLIPPINGATOM)
  373.    (edits :EDITSATOM)
  374.    (media :MEDIADIRECTORY)
  375.    (userData :USERDATAATOM)     ;  space for extending with new data types 
  376.    )
  377.  
  378. (defrecord MovieHeader 
  379.    (flags :SIGNED-LONG)         ;  1 byte of version / 3 bytes of flags 
  380.    (creationTime :SIGNED-LONG)  ;  seconds since Jan 1904 when directory was created 
  381.    (modificationTime :SIGNED-LONG);  seconds since Jan 1904 when directory was appended 
  382.  
  383. ;  Time specifications 
  384.    (timeScale :SIGNED-LONG)
  385.    (duration :SIGNED-LONG)
  386.  
  387.    (preferredRate :SIGNED-LONG) ;  rate at which to play this movie 
  388.    (preferredVolume :SIGNED-INTEGER);  volume to play movie at 
  389.    (reserved1 :SIGNED-INTEGER)
  390.  
  391. ;  Graphics specifications 
  392.    (reserved2 :SIGNED-LONG)
  393.    (reserved3 :SIGNED-LONG)
  394.  
  395.    (matrix :MATRIXRECORD)
  396.  
  397.    (previewTime :SIGNED-LONG)   ;  time in track the proxy begins (track time) 
  398.    (previewDuration :SIGNED-LONG);  how long the proxy lasts (track time) 
  399.    (posterTime :SIGNED-LONG)    ;  time in track the proxy begins (track time) 
  400.    (selectionTime :SIGNED-LONG) ;  time in track the proxy begins (track time) 
  401.    (selectionDuration :SIGNED-LONG);  time in track the proxy begins (track time) 
  402.    (currentTime :SIGNED-LONG)   ;  time in track the proxy begins (track time) 
  403.    (nextTrackID :SIGNED-LONG)   ;  next value to use for a TrackID 
  404.    )
  405.  
  406. (defrecord MovieHeaderAtom 
  407.    (size :SIGNED-LONG)
  408.    (atomType :SIGNED-LONG)      ;  = 'mvhd' 
  409.    (header :MOVIEHEADER)
  410.    )
  411.  
  412. (defrecord trackDirectoryArray 
  413.    (TrackDirectory (:ARRAY :TRACKDIRECTORY 1))
  414.    )
  415.  
  416. (defrecord MovieDirectory 
  417.    (size :SIGNED-LONG)
  418.    (atomType :SIGNED-LONG)      ;  = 'moov' 
  419.    (header :MOVIEHEADERATOM)
  420.    (movieClip :CLIPPINGATOM)
  421. ;  Track Directories 
  422.    (track :TRACKDIRECTORYARRAY)
  423. ;  User data for Movie 
  424.    (userData :USERDATAATOM)     ;  space for user extensions 
  425.    )
  426.  
  427. ;  Movie formats and tags 
  428. ;  some system defined format IDs 
  429. (defconstant $MOVIE_TYPE :|moov|)
  430. (defconstant $TRACK_TYPE :|trak|)
  431. (defconstant $MEDIA_TYPE :|mdia|)
  432. (defconstant $VIDEO_TYPE :|vide|)
  433. (defconstant $SOUND_TYPE :|soun|)
  434.  
  435. ;  atom id's 
  436. (defconstant $MovieAID :|moov|)
  437. (defconstant $MovieHeaderAID :|mvhd|)
  438. (defconstant $ClipAID :|clip|)
  439. (defconstant $RgnClipAID :|crgn|)
  440. (defconstant $MatteAID :|matt|)
  441. (defconstant $MatteCompAID :|kmat|)
  442. (defconstant $TrackAID :|trak|)
  443. (defconstant $UserDataAID :|udta|)
  444. (defconstant $TrackHeaderAID :|tkhd|)
  445. (defconstant $EditsAID :|edts|)
  446. (defconstant $EditListAID :|elst|)
  447. (defconstant $MediaAID :|mdia|)
  448. (defconstant $MediaHeaderAID :|mdhd|)
  449. (defconstant $MediaInfoAID :|minf|)
  450. (defconstant $VideoMediaInfoHeaderAID :|vmhd|)
  451. (defconstant $SoundMediaInfoHeaderAID :|smhd|)
  452. (defconstant $GenericMediaInfoHeaderAID :|gmhd|)
  453. (defconstant $GenericMediaInfoAID :|gmin|)
  454. (defconstant $DataInfoAID :|dinf|)
  455. (defconstant $DataRefAID :|dref|)
  456. (defconstant $SampleTableAID :|stbl|)
  457. (defconstant $STSampleDescAID :|stsd|)
  458. (defconstant $STTimeToSampAID :|stts|)
  459. (defconstant $STSyncSampleAID :|stss|)
  460. (defconstant $STSampleToChunkAID :|stsc|)
  461. (defconstant $STShadowSyncAID :|stsh|)
  462. (defconstant $HandlerAID :|hdlr|)
  463. (defconstant $STSampleSizeAID :|stsz|)
  464. (defconstant $STChunkOffsetAID :|stco|)
  465. (defconstant $DataRefContainerAID :|drfc|)
  466.  
  467. ; $ENDC                         ;  UsingMoviesFormat 
  468.  
  469. ; $IFC NOT UsingIncludes
  470.  
  471. ; $ENDC
  472.  
  473. (export '($DATAREFCONTAINERAID $STCHUNKOFFSETAID $STSAMPLESIZEAID $HANDLERAID
  474.           $STSHADOWSYNCAID $STSAMPLETOCHUNKAID $STSYNCSAMPLEAID
  475.           $STTIMETOSAMPAID $STSAMPLEDESCAID $SAMPLETABLEAID $DATAREFAID
  476.           $DATAINFOAID $GENERICMEDIAINFOAID $GENERICMEDIAINFOHEADERAID
  477.           $SOUNDMEDIAINFOHEADERAID $VIDEOMEDIAINFOHEADERAID $MEDIAINFOAID
  478.           $MEDIAHEADERAID $MEDIAAID $EDITLISTAID $EDITSAID $TRACKHEADERAID
  479.           $USERDATAAID $TRACKAID $MATTECOMPAID $MATTEAID $RGNCLIPAID $CLIPAID
  480.           $MOVIEHEADERAID $MOVIEAID $SOUND_TYPE $VIDEO_TYPE $MEDIA_TYPE
  481.           $TRACK_TYPE $MOVIE_TYPE $TRACKINPOSTER $TRACKINPREVIEW $TRACKINMOVIE
  482.           $TRACKENABLE $KMOVIEVERSION))
  483. (provide-interface 'MoviesFormat)